home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / HyperCard / StandardFile Version 2 / StandardFile Version 2 / card_3020.txt < prev    next >
Text File  |  1990-02-25  |  7KB  |  304 lines
  1. -- card: 3020 from stack: in
  2. -- bmap block id: 3307
  3. -- flags: 0000
  4. -- background id: 2592
  5. -- name: 
  6.  
  7.  
  8. -- part 6 (button)
  9. -- low flags: 00
  10. -- high flags: 8001
  11. -- rect: left=464 top=200 right=248 bottom=507
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 17343 / 17343
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Run…
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put StandardFile("get:Run", "APPL") into appl
  23.   if appl <> "" then open appl
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 8 (field)
  29. -- low flags: 01
  30. -- high flags: 0004
  31. -- rect: left=13 top=157 right=177 bottom=141
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 0
  35. -- font id: 3
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: 
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   put StandardFile("get") into cd fld "Path"
  43. end mouseUp
  44.  
  45.  
  46.  
  47. -- part 9 (field)
  48. -- low flags: 01
  49. -- high flags: 0002
  50. -- rect: left=89 top=307 right=325 bottom=510
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 0
  54. -- font id: 3
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: Path
  59.  
  60.  
  61. -- part 10 (field)
  62. -- low flags: 01
  63. -- high flags: 0004
  64. -- rect: left=13 top=179 right=199 bottom=300
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 0
  68. -- font id: 3
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: 
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   put StandardFile("get:This One!", "TEXT", "STAK") into cd fld "Path"
  76. end mouseUp
  77.  
  78.  
  79.  
  80. -- part 11 (field)
  81. -- low flags: 01
  82. -- high flags: 0004
  83. -- rect: left=13 top=201 right=221 bottom=141
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 0
  87. -- font id: 3
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: 
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   put StandardFile("put") into cd fld "Path"
  95. end mouseUp
  96.  
  97.  
  98.  
  99. -- part 12 (field)
  100. -- low flags: 01
  101. -- high flags: 0004
  102. -- rect: left=13 top=223 right=243 bottom=405
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 0 / 0
  105. -- text alignment: 0
  106. -- font id: 3
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: 
  111. ----- HyperTalk script -----
  112. on mouseUp
  113.   put StandardFile("put:Hit Me!", "Need file here‚Ķ", "Enter a name:") into cd fld "Path"
  114. end mouseUp
  115.  
  116.  
  117.  
  118. -- part 13 (field)
  119. -- low flags: 01
  120. -- high flags: 0004
  121. -- rect: left=13 top=246 right=266 bottom=141
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 0
  125. -- font id: 3
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: 
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   put StandardFile("dir") into cd fld "Path"
  133. end mouseUp
  134.  
  135.  
  136.  
  137. -- part 14 (field)
  138. -- low flags: 01
  139. -- high flags: 0004
  140. -- rect: left=13 top=268 right=288 bottom=301
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 0
  144. -- font id: 3
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: 
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   put StandardFile("dir:Choose", "Choose Current:") into cd fld "Path"
  152. end mouseUp
  153.  
  154.  
  155.  
  156. -- part 16 (field)
  157. -- low flags: 01
  158. -- high flags: 0001
  159. -- rect: left=14 top=61 right=111 bottom=309
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 0 / 0
  162. -- text alignment: 0
  163. -- font id: 3
  164. -- text size: 12
  165. -- style flags: 0
  166. -- line height: 16
  167. -- part name: 
  168.  
  169.  
  170. -- part 17 (field)
  171. -- low flags: 01
  172. -- high flags: 0002
  173. -- rect: left=317 top=21 right=120 bottom=511
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 1
  177. -- font id: 3
  178. -- text size: 9
  179. -- style flags: 8192
  180. -- line height: 12
  181. -- part name: 
  182.  
  183.  
  184. -- part 18 (button)
  185. -- low flags: 00
  186. -- high flags: 8001
  187. -- rect: left=464 top=247 right=295 bottom=507
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 1011 / 1011
  190. -- text alignment: 1
  191. -- font id: 0
  192. -- text size: 12
  193. -- style flags: 0
  194. -- line height: 16
  195. -- part name: 
  196. ----- HyperTalk script -----
  197. on mouseUp
  198.   go home
  199. end mouseUp
  200.  
  201.  
  202.  
  203. -- part 19 (button)
  204. -- low flags: 00
  205. -- high flags: 8001
  206. -- rect: left=464 top=153 right=201 bottom=507
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 2478 / 2478
  209. -- text alignment: 1
  210. -- font id: 0
  211. -- text size: 12
  212. -- style flags: 0
  213. -- line height: 16
  214. -- part name: 
  215. ----- HyperTalk script -----
  216. on mouseUp
  217.   set the visible of cd field "Help" to not the visible of card field "Help"
  218. end mouseUp
  219.  
  220.  
  221.  
  222. -- part 21 (field)
  223. -- low flags: 01
  224. -- high flags: 0000
  225. -- rect: left=9 top=133 right=155 bottom=222
  226. -- title width / last selected line: 0
  227. -- icon id / first selected line: 0 / 0
  228. -- text alignment: 0
  229. -- font id: 3
  230. -- text size: 14
  231. -- style flags: 768
  232. -- line height: 18
  233. -- part name: 
  234.  
  235.  
  236. -- part 20 (field)
  237. -- low flags: 81
  238. -- high flags: 0004
  239. -- rect: left=54 top=106 right=240 bottom=435
  240. -- title width / last selected line: 0
  241. -- icon id / first selected line: 0 / 0
  242. -- text alignment: 0
  243. -- font id: 3
  244. -- text size: 12
  245. -- style flags: 0
  246. -- line height: 16
  247. -- part name: Help
  248. ----- HyperTalk script -----
  249. on mouseUp
  250.   set the visible of me to false
  251. end mouseUp
  252.  
  253.  
  254. -- part contents for card part 8
  255. ----- text -----
  256. StandardFile("get")
  257.  
  258. -- part contents for card part 9
  259. ----- text -----
  260. miniQisk:Programming:XCMD & XFCN Δí:Apple Sound.c
  261.  
  262. -- part contents for card part 10
  263. ----- text -----
  264. StandardFile("get:This One!", "TEXT", "STAK")
  265.  
  266. -- part contents for card part 11
  267. ----- text -----
  268. StandardFile("put")
  269.  
  270. -- part contents for card part 12
  271. ----- text -----
  272. StandardFile("put:Hit Me!", "Need file here‚Ķ", "Enter a name:")
  273.  
  274. -- part contents for card part 13
  275. ----- text -----
  276. StandardFile("dir")
  277.  
  278. -- part contents for card part 14
  279. ----- text -----
  280. StandardFile("dir:Choose", "Choose Current:")
  281.  
  282. -- part contents for card part 16
  283. ----- text -----
  284. This stack contains StandardFile XFCN v2.
  285. FreeWare ¬© Nigel Perry, 1990. No commercial use (includes ShareWare) without permission.
  286.  
  287. -- part contents for card part 17
  288. ----- text -----
  289. Nigel Perry
  290. Department of Computing
  291. Imperial College of Science, Technology and Medicine
  292. 180, Queens Gate
  293. London SW7
  294. England
  295.  
  296. Email: np@doc.ic.ac.uk
  297.  
  298. -- part contents for card part 20
  299. ----- text -----
  300. The XCFN consists of three resources; XFCN "StandardFile", DITL "GetDir" -3969, and DLOG "GetDir" -3969. All three must be in your stack for StandardFile() to work. The DLOG/DITL are accessed by NUMBER and so their ids must not be changed (-3969 suggests it is owned by the standard file package‚Ķ). The XFCN is written in Think C 3.0 with asm{} statements to decrease code size (I only have 1M so I try to make all my XFCN/XCMDs as small as possible!).
  301.  
  302. -- part contents for card part 21
  303. ----- text -----
  304. Examples (Click to try):